﻿Public Class CHocSinhCRT
    Private _MaHocSinh, _MaLop As Integer
    Private _HoTen, _TenLop, _DiaChi As String
    Private _TBHKI, _TBHKII As Single

    Private _NgaySinhtu As DateTime
    Private _NgaySinhden As DateTime

    Private _checkNgaySinh As Boolean
    Private _checkDiaChi As Boolean
    Private _checkLopHoc As Boolean

    Public Property DiaChi()
        Get
            Return _DiaChi
        End Get
        Set(ByVal value)
            _DiaChi = value
        End Set
    End Property

    Public Property NgaySinhtu()
        Get
            Return _NgaySinhtu
        End Get
        Set(ByVal value)
            _NgaySinhtu = value
        End Set
    End Property

    Public Property NgaySinhden()
        Get
            Return _NgaySinhden
        End Get
        Set(ByVal value)
            _NgaySinhden = value
        End Set
    End Property

    Public Property CheckNgaySinh() As Boolean
        Get
            Return _checkNgaySinh
        End Get
        Set(ByVal value As Boolean)
            _checkNgaySinh = value
        End Set
    End Property

    Public Property CheckDiaChi() As Boolean
        Get
            Return _checkDiaChi
        End Get
        Set(ByVal value As Boolean)
            _checkDiaChi = value
        End Set
    End Property

    Public Property CheckLopHoc() As Boolean
        Get
            Return _checkLopHoc
        End Get
        Set(ByVal value As Boolean)
            _checkLopHoc = value
        End Set
    End Property

    Public Property MaHocSinh()
        Get
            Return _MaHocSinh
        End Get
        Set(ByVal value)
            _MaHocSinh = value
        End Set
    End Property

    Public Property MaLop()
        Get
            Return _MaLop
        End Get
        Set(ByVal value)
            _MaLop = value
        End Set
    End Property

    Public Property HoTen()
        Get
            Return _HoTen
        End Get
        Set(ByVal value)
            _HoTen = value
        End Set
    End Property

    Public Property TBHKI()
        Get
            Return _TBHKI
        End Get
        Set(ByVal value)
            _TBHKI = value
        End Set
    End Property

    Public Property TBHKII()
        Get
            Return _TBHKII
        End Get
        Set(ByVal value)
            _TBHKII = value
        End Set
    End Property

    Public Property TenLop()
        Get
            Return _TenLop
        End Get
        Set(ByVal value)
            _TenLop = value
        End Set
    End Property

    Public Sub New()
        _MaHocSinh = 0
        _MaLop = 0
        _HoTen = ""
        _TBHKI = 0
        _TBHKII = 0
        _NgaySinhtu = New DateTime(1950, 1, 1)
        _NgaySinhden = New DateTime(1997, 1, 1)
        _DiaChi = ""
        _checkNgaySinh = False
        _checkDiaChi = False        
        _checkLopHoc = False
        _TenLop = ""
    End Sub

End Class
